D_chk_reg_model.asp 落叶冰点万能企业网站内容管理系统 V9.1 - ASP源码程序

www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_chk_reg_model.asp
    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->

<!--#include file="modelsys_inc/D_model_class.asp"-->
<script src="../../inc/admin.js" type="text/javascript"></script>






<%

if qx_if_max=0 then


response.redirect "../D_suodinguser.asp"
end if




%>



        <%
mpp=request("mbpath")


set filea=new Cls_FSO
set fileb=new DosAsp 



mpp=trim(mpp)

Dim regEx
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = "^([^(\/\\)]+(\/|)){1,}$|^[^(\/\\)]+$" ' 设置模式。 
regEx.IgnoreCase = False ' 设置是否区分大小写。 
retVal = regEx.Test(mpp) ' 执行搜索测试。 







If retVal<>true Then 
%>



<script language=javascript>
alert("后台模型文件夹路径 的格式不对!,参考格式: aaaa 或 aaaa/");



history.go(-1);

</script>

<%



else

if right(mpp,1)="/" then
mpp=left(mpp,len(mpp)-1)

end if





if filea.ReportFolderStatus(server.mappath("../../Model/Models/"&mpp))=1 then


set filea=new Cls_FSO




fla1="../../Model/Models/"&mpp&"/"&iconfigfile
if filea.ReportFileStatus(server.mappath(fla1))=1 then
dddd1=loadfile(fla1)
		
call get_info_array_from_model_file_content(dddd1)
end if





set rs=server.CreateObject("adodb.recordset")
       
rs.open "select * from ND_models_reg where lcase(model_name)='"&lcase(nd1_model_name)&"'",conn,1,1

        
if rs.eof then
response.redirect "D_chk2_reg_model.asp?mpath="&mpp
else


%>



<script language=javascript>
alert("安装失败,因为系统里已存在同名的后台模型(模型名:<%=nd1_model_name%>)或此后台模型已被安装,请先删除此同名后台模型再尝试安装");
history.go(-1);
</script>


<%



end if




else


%>



<script language=javascript>
alert("安装失败,因为此后台模型文件夹不存在");



history.go(-1);

</script>


<%

end if
end if


%>
        
            


                   
</html>